00100		DIMENSION NA(40,20),LL(1),II(1000)
00200		COMMON LL,II
00300	1	TYPE 15
00400	15	FORMAT(' I FORGOT EVERYTHING.'/)
00500	 	J=0
00600	
00700	2	IC=0
00800	  	J=J+1
00900		CALL DPYCLR
01000		IQ=0
01100		IB=0
01200		IA=0
01300		IT=0
01400		DO 101 I=1,J
01500	101	NA(5,I)=0
01600	3	TYPE 4
01700	4	FORMAT(' ASK ME SOMETHING, OR TELL ME ANYTHING!'/)
01800	
01900	5	IF(J.GT.19)GO TO 1
02000	 	ACCEPT 6,(NA(I,J),I=11,40)
02100	6	FORMAT(30A1)
02200	
02300		IF(NA(11,J).EQ.'-')GO TO 1
02400		IF(NA(11,J).EQ.' '.AND.IC)GO TO 22
02500		IF(NA(11,J).EQ.' ')GO TO 3
02600		IF(NA(11,J).EQ.'+')GO TO 95
02700		IF(NA(11,J).NE.'*')GO TO 59
02800		IF(.NOT.IC)GO TO 3
02900	  	J=J-1
03000	  	IF(IB)GO TO 99
03100	  	IF(IT.OR.IA)GO TO 79
03200		GO TO 47
03300	59	DO 7 I=11,40
03400	7	IF(NA(I+1,J).EQ.' '.AND.NA(I+2,J).EQ.' ')GO TO 8
03500		NA(1,J)=40
03600		GO TO 9
03700	8	NA(1,J)=I
03800	
03900	9	NA(2,J)=-1
04000		IF(NA(NA(1,J),J).EQ.'?')NA(2,J)=0
04100		IF(NA(11,J).NE.'%')GO TO 124
04200		CALL ISEE(NA(6,J))
04300		DO 125 I=11,NA(1,J)
04400	125	NA(I,J)=NA(I+1,J)
04500		NA(1,J)=NA(1,J)-1
04600	124	NA(3,J)=J
04700		NA(4,J)=0
04800		IF(IC)GO TO 44
04900		IF(NA(2,J))GO TO 2
05000	
05100		IC=-1
05200	
05300		DO 52 MB=J-1,1,-1
05400		DO 51 I=11,NA(1,J)
05500	  	IF(NA(I,J).NE.NA(I,MB))GO TO 52
05600	51	CONTINUE
05700	
05800		NA(3,J)=NA(3,MB)
05900		IT=-1
06000		IQ=-1
06100		MA=J
06200		IF(NA(4,MB).LT.1)GO TO 79
06300		I=NA(4,MB)
06400		GO TO 25
06500	79	MA=MA-1
06600		IF(MA.LT.1.AND.IT)GO TO 80
06700		IF(MA.LT.1)GO TO 40
06800	  	IF(NA(3,J).EQ.NA(3,MA).AND.NA(2,MA).AND..NOT.NA(5,MA))GO TO 34
06900		GO TO 79
07000	52	CONTINUE
07100	
07200	80	IT=0 
07300		NL=10
07400	70	IF(NA(1,J)-10.LT.NL)GO TO 16
07500	
07600	18	M=J
07700	
07800	40	IA=0
07900	47	M=M-1
08000		IF(M.LT.1)GO TO 75
08100		IF(NA(2,M).AND.NA(5,M))GO TO 47
08200		IF(NA(1,M)-10.LT.NL)GO TO 47
08300		DO 72 I=11,1+NA(1,J)-NL
08400		IF(NA(I,J).EQ.' ')GO TO 72
08500		DO 73 K=11,1+NA(1,M)-NL
08600		DO 74 L=0,NL
08700	  	IF(NA(I+L,J).NE.NA(K+L,M))GO TO 73
08800	74	CONTINUE
08900		NA(3,J)=NA(3,M)
09000		IF(.NOT.NA(2,M))GO TO 69
09100		I=M
09200		GO TO 25
09300	73	CONTINUE
09400	72	CONTINUE
09500		GO TO 47
09600	
09700	16	NL=NA(1,J)-9
09800	75	NL=NL-1
09900		IF(NL.LT.4)GO TO 99
10000		GO TO 18
10100	
10200	69	IA=-1
10300		MA=J
10400		IF(NA(4,M).LT.1.OR.NA(5,NA(4,M)))GO TO 79
10500		I=NA(4,M)
10600		GO TO 25
10700	
10800	34	I=MA
10900	25	NA(5,I)=-1
11000		CALL DPYCLR
11100	  	TYPE 26,(NA(K,I),K=11,NA(1,I))
11200	26	FORMAT(1X30A1)
11300		IF(NA(6,I).EQ.0)GO TO 128
11400		CALL DPYSET(1,II,1000)
11500		CALL IFILE(1,NA(6,I))
11600		READ(1)LL,(II(K),K=1,LL+2)
11700		CALL ACCPOG(1)
11800		CALL DPYOUT(1)
11900	128	TYPE 29
12000	29	FORMAT(/' IF I''M RIGHT,TYPE: <CR> .'/' IF I''M WRONG,TYPE:'
12100		1' ''*'' ,AND I''LL TRY AGAIN.'/' OR JUST TYPE IN THE ANSWER.'/)
12200		GO TO 28
12300	
12400	99	TYPE 27
12500	27	FORMAT(' I DON''T KNOW THE ANSWER, SO TYPE IT IN.'/)
12600		IB=-1
12700	
12800	28	J=J+1
12900		GO TO 5
13000	
13100	22	J=J-1
13200		IF(IB)GO TO 99
13300		IF(.NOT.IQ)GO TO 2
13400		J=J-1
13500		NA(4,MB)=M
13600		IF(IT.OR.IA)NA(4,MB)=MA
13700		GO TO 2
13800	
13900	44	IF(IQ)GO TO 93
14000		NA(3,J-1)=J
14100		GO TO 2
14200	
14300	93	NA(3,J)=NA(3,MB)
14400		NA(4,MB)=J-1
14500		DO 94 K=1,40
14600	94	NA(K,J-1)=NA(K,J)
14700		J=J-1
14800		GO TO 2
14900	
15000	95	TYPE 37,J,IC,IQ,IT,IA,IB,MB,MA,M,NL
15100	37	FORMAT(3X'J'3X'IC'2X'IQ'2X'IT'2X'IA'2X'IB'2X'MB'
15200		1,2X'MA'2X' M'2X'NL'/1X10I4/)
15300		TYPE 88
15400	88	FORMAT(2X'LEN'2X'!!'1X'LIKE'1X'L2'1X'ANS'1X'PIC')
15500		DO 96 L=1,J
15600	96	TYPE 36,(NA(K,L),K=1,40)
15700	36	FORMAT(1X5I4,1XA5,2X4I1,2X30A1)
15800		GO TO 5
15900		END